home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / ComputedValue.p < prev    next >
Text File  |  2004-01-31  |  2KB  |  59 lines
  1. pTempVar <- <primitive 110 11 >
  2. <primitive 112 pTempVar 1  " resetValue " \
  3.   #( #[ 16r11 16r5B 16rC9 16rF6 16r05 16r12 16rF1 16r60 16rF8 16r06 16rF2 \
  4.         16r20 16r80 16r00 16rF1 16r60 16rF2 16r20 16r31 16r81 16r02 \
  5.         16rF2 16rF5] \
  6.     #( #computeValue #value #changed:  )) >
  7.  
  8. <primitive 112 pTempVar 2  " computeValue " \
  9.   #( #[ 16r20 16r30 16r81 16r01 16rF3 16rF5] \
  10.     #( 'computeValue' #subclassResponsibility:  )) >
  11.  
  12. <primitive 112 pTempVar 3  " printOn: " \
  13.   #( #[ 16r10 16r12 16rB6 16rF6 16r05 16r20 16r21 16r91 16r00 16rF3 16rF2 \
  14.         16r21 16r20 16rA4 16r81 16r01 16rF2 16r21 16r32 16r81 16r03 \
  15.         16rF2 16rF5] \
  16.     #( #printOn: #print: ' with: TheUnassignedValue' #nextPutAll:  )) >
  17.  
  18. <primitive 112 pTempVar 4  " update:with:from: " \
  19.   #( #[ 16r20 16r80 16r00 16rF2 16rF5] \
  20.     #( #resetValue  )) >
  21.  
  22. <primitive 112 pTempVar 5  " value: " \
  23.   #( #[ 16r20 16r80 16r00 16rF2 16rF5] \
  24.     #( #shouldNotImplement  )) >
  25.  
  26. <primitive 112 pTempVar 6  " value " \
  27.   #( #[ 16r10 16r12 16rB6 16rF7 16r05 16r20 16r80 16r00 16rF1 16r60 16rF2 \
  28.         16r10 16rF3 16rF5] \
  29.     #( #computeValue  )) >
  30.  
  31. <primitive 112 pTempVar 7  " parts " \
  32.   #( #[ 16r20 16r30 16r81 16r01 16rF3 16rF5] \
  33.     #( 'parts' #subclassResponsibility:  )) >
  34.  
  35. <primitive 112 pTempVar 8  " eagerEvaluation: " \
  36.   #( #[ 16r21 16r61 16rF5] \
  37.     #(  )) >
  38.  
  39. <primitive 112 pTempVar 9  " releaseParts " \
  40.   #( #[ 16r20 16r80 16r00 16rE1 16r01 16r05 16r21 16r20 16r81 16r01 16rF3 \
  41.         16rB3 16rF2 16rF5] \
  42.     #( #parts #removeDependent:  )) >
  43.  
  44. <primitive 112 pTempVar 10  " resetCache " \
  45.   #( #[ 16r12 16r60 16rF5] \
  46.     #(  )) >
  47.  
  48. <primitive 112 pTempVar 11  " initialize " \
  49.   #( #[ 16r05 16r33 16rA0 16r62 16r12 16r60 16r5B 16r61 16rF5] \
  50.     #(  )) >
  51.  
  52. <primitive 98 #ComputedValue \
  53.   <primitive 97 #ComputedValue #ValueModel #AmigaTalk:General/ComputedValue.st \
  54.    #(  #cachedValue #eagerEvaluation #unassignedValue ) \
  55.    #( #resetValue #computeValue #printOn: #update:with:from: #value: #value  \
  56.        #parts #eagerEvaluation: #releaseParts #resetCache #initialize  ) \
  57.   pTempVar 4 6 > #ordinary >
  58.  
  59.